#!/usr/bin/env tclsh

# 数学函数
set x 3
set y [expr 2*sin(1)]
puts "2*sin($x) = $y"
puts "asin($x) = [expr asin($x%2)]"
puts "exp($x) = [expr exp($x)]"
puts "floor($x) = [expr floor($x)]"
puts "-$x=[expr -$x]"
puts "$x<<1 =[expr $x<<1]"
puts "$x%2 =[expr $x%2]" ;#取模
puts "2&3 =[expr 2&3]" ;#


